

*** Syntax for analyses of stimulus-level data

*** Use data file 'Stimulus-data.dta' with this syntax



* Table 3
  
  xtset resp vid_order
  replace neg = v_negativity
  quietly xtreg gslmc neg vid_order female age income university if stimtype=="single video" & local==0 , re 
  estimates store D
  quietly xtreg gslmc neg vid_order female age income university if wp_right2_dichox==0 & stimtype=="single video" & local==0 , re 
  estimates store E
  quietly xtreg gslmc neg vid_order female age income university if wp_right2_dichox==1 & stimtype=="single video" & local==0 , re 
  estimates store F
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if stimtype=="single video" & local==0 , re 
  estimates store G  
  esttab D E F G , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)

      

* Figure 3

  xtset resp vid_order
  replace neg = v_negativity
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="BR" & stimtype=="single video" & local==0 , re 
  estimates store B
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.e" & stimtype=="single video" & local==0 , re 
  estimates store C
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.f" & stimtype=="single video" & local==0 , re 
  estimates store D
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CH" & stimtype=="single video" & local==0 , re 
  estimates store E
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CN" & stimtype=="single video" & local==0 , re 
  estimates store F
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="DK" & stimtype=="single video" & local==0 , re 
  estimates store G
  esttab B C D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="FR" & stimtype=="single video" & local==0 , re 
  estimates store H
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="GH" & stimtype=="single video" & local==0 , re 
  estimates store I
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IN" & stimtype=="single video" & local==0 , re 
  estimates store J
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.j" & stimtype=="single video" & local==0 , re 
  estimates store K
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.p" & stimtype=="single video" & local==0 , re 
  estimates store L
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IT" & stimtype=="single video" & local==0 , re 
  estimates store M
  esttab H I J , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  esttab K L M , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)

  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="JP" & stimtype=="single video" & local==0 , re 
  estimates store N
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="NZ" & stimtype=="single video" & local==0 , re 
  estimates store O
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="RU" & stimtype=="single video" & local==0 , re 
  estimates store P
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SE" & stimtype=="single video" & local==0 , re 
  estimates store Q
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SW" & stimtype=="single video" & local==0 , re 
  estimates store R 
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="UK" & stimtype=="single video" & local==0 , re 
  estimates store S
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="US" & stimtype=="single video" & local==0 , re 
  estimates store T
  esttab N O P Q , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  esttab R S T, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  
     
	  
* Table 5 Columns 2 , 3 and 4
 
  xtset resp pho_order
  replace neg = p_negativity
  quietly xtreg p_gslmc_all neg pho_order female age income university if wp_right2_dichox==0 & stimtype=="single photo" , re 
  estimates store B
  quietly xtreg p_gslmc_all neg pho_order female age income university if wp_right2_dichox==1 & stimtype=="single photo" , re 
  estimates store C
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" , re 
  estimates store D
  esttab B C D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)


  
* Table 6 Column 1

  xtset resp pho_order
  replace neg = p_negativity
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="BR" & stimtype=="single photo" , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CH" & stimtype=="single photo" , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CN" & stimtype=="single photo" , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="DK" & stimtype=="single photo" , re 
  estimates store G
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="FR" & stimtype=="single photo" , re 
  estimates store H  
  esttab B D E , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  esttab F G H , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="GH" & stimtype=="single photo" , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IN" & stimtype=="single photo" , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IT" & stimtype=="single photo" , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="JP" & stimtype=="single photo" , re 
  estimates store N
  esttab I J K , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="RU" & stimtype=="single photo" , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SE" & stimtype=="single photo" , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SW" & stimtype=="single photo" , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="UK" & stimtype=="single photo" , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="US" & stimtype=="single photo" , re 
  estimates store T
  esttab O P Q , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  esttab R S T, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)


	
* Table A3 Row 2

  xtset resp vid_order
  replace neg = v_negativity
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if stimtype=="single video" & local==0 , re 
  estimates store A    
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if stimtype=="single video" & local==1 , re 
  estimates store B 
  esttab A B , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
   
   
  xtset resp vid_order
  replace neg = v_negativity
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if stimtype=="single video" & local==0 , re 
  estimates store A  
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="BR" & stimtype=="single video" & local==0 , re 
  estimates store B
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.e" & stimtype=="single video" & local==0 , re 
  estimates store C
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.f" & stimtype=="single video" & local==0 , re 
  estimates store D
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CH" & stimtype=="single video" & local==0 , re 
  estimates store E
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CN" & stimtype=="single video" & local==0 , re 
  estimates store F
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="DK" & stimtype=="single video" & local==0 , re 
  estimates store G
  esttab A B C D , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="FR" & stimtype=="single video" & local==0 , re 
  estimates store H
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="GH" & stimtype=="single video" & local==0 , re 
  estimates store I
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IN" & stimtype=="single video" & local==0 , re 
  estimates store J
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.j" & stimtype=="single video" & local==0 , re 
  estimates store K
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.p" & stimtype=="single video" & local==0 , re 
  estimates store L
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IT" & stimtype=="single video" & local==0 , re 
  estimates store M
  esttab H I J , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  esttab K L M , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="JP" & stimtype=="single video" & local==0 , re 
  estimates store N
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="NZ" & stimtype=="single video" & local==0 , re 
  estimates store O
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="RU" & stimtype=="single video" & local==0 , re 
  estimates store P
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SE" & stimtype=="single video" & local==0 , re 
  estimates store Q
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SW" & stimtype=="single video" & local==0 , re 
  estimates store R 
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="UK" & stimtype=="single video" & local==0 , re 
  estimates store S
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="US" & stimtype=="single video" & local==0 , re 
  estimates store T
  esttab N O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  esttab R S T, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  
  
  xtset resp vid_order
  replace neg = v_negativity
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if stimtype=="single video" & local==1 , re 
  estimates store A  
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="BR" & stimtype=="single video" & local==1 , re 
  estimates store B
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.e" & stimtype=="single video" & local==1 , re 
  estimates store C
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.f" & stimtype=="single video" & local==1 , re 
  estimates store D
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CH" & stimtype=="single video" & local==1 , re 
  estimates store E
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CN" & stimtype=="single video" & local==1 , re 
  estimates store F
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="DK" & stimtype=="single video" & local==1 , re 
  estimates store G
  esttab A B C D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="FR" & stimtype=="single video" & local==1 , re 
  estimates store H
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="GH" & stimtype=="single video" & local==1 , re 
  estimates store I
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IN" & stimtype=="single video" & local==1 , re 
  estimates store J
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.j" & stimtype=="single video" & local==1 , re 
  estimates store K
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.p" & stimtype=="single video" & local==1 , re 
  estimates store L
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IT" & stimtype=="single video" & local==1 , re 
  estimates store M
  esttab H I J , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  esttab K L M , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="JP" & stimtype=="single video" & local==1 , re 
  estimates store N
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="NZ" & stimtype=="single video" & local==1 , re 
  estimates store O
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="RU" & stimtype=="single video" & local==1 , re 
  estimates store P
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SE" & stimtype=="single video" & local==1 , re 
  estimates store Q
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SW" & stimtype=="single video" & local==1 , re 
  estimates store R 
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="UK" & stimtype=="single video" & local==1 , re 
  estimates store S
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="US" & stimtype=="single video" & local==1 , re 
  estimates store T
  esttab N O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  esttab R S T, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
 
 

* Table A4 Row 2 

  xtset resp pho_order
  replace neg = p_negativity
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store A  
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store B  
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store C
  esttab A B C , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
   
   
  xtset resp pho_order
  replace neg = p_negativity
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="BR" & stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CH" & stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CN" & stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="DK" & stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="FR" & stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="GH" & stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IN" & stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IT" & stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="JP" & stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="RU" & stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SE" & stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SW" & stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="UK" & stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="US" & stimtype=="single photo" & (p_negative==1 | p_negative==0) , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  	     
  xtset resp pho_order
  replace neg = p_negativity
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="BR" & stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CH" & stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CN" & stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="DK" & stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="FR" & stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="GH" & stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IN" & stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IT" & stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="JP" & stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="RU" & stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SE" & stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SW" & stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="UK" & stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="US" & stimtype=="single photo" & (threatening==1 | p_negative==0) , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  	     
  xtset resp pho_order
  replace neg = p_negativity
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="BR" & stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CH" & stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CN" & stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="DK" & stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="FR" & stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="GH" & stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IN" & stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IT" & stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="JP" & stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="RU" & stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SE" & stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SW" & stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="UK" & stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="US" & stimtype=="single photo" & (disgusting==1 | p_negative==0) , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  	     		 			 
				 
* Table A5
  
  xtset resp vid_order
  replace neg = v_negative
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store A  
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="BR" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store B
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.e" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store C
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.f" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store D
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CH" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store E
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CN" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store F
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="DK" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store G
  esttab A B C D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="FR" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store H
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="GH" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store I
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IN" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store J
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.j" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store K
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.p" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store L
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IT" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store M
  esttab H I J, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab K L M, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="JP" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store N
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="NZ" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store O
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="RU" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store P
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SE" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store Q
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SW" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store R 
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="UK" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store S
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="US" & stimtype=="single video" & local==0 & (stimulus=="v_11" | v_negative==0) , re 
  estimates store T
  esttab N O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

 
  xtset resp vid_order
  replace neg = v_negative
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store A  
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="BR" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store B
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.e" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store C
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.f" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store D
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CH" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store E
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CN" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store F
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="DK" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store G
  esttab A B C D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="FR" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store H
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="GH" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store I
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IN" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store J
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.j" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store K
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.p" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store L
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IT" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store M
  esttab H I J, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab K L M, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="JP" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store N
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="NZ" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store O
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="RU" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store P
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SE" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store Q
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SW" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store R 
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="UK" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store S
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="US" & stimtype=="single video" & local==0 & (stimulus=="v_12" | v_negative==0) , re 
  estimates store T
  esttab N O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

   
  xtset resp vid_order
  replace neg = v_negative
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store A  
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="BR" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store B
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.e" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store C
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.f" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store D
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CH" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store E
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CN" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store F
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="DK" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store G
  esttab A B C D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="FR" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store H
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="GH" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store I
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IN" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store J
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.j" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store K
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.p" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store L
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IT" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store M
  esttab H I J, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab K L M, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="JP" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store N
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="NZ" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store O
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="RU" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store P
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SE" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store Q
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SW" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store R 
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="UK" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store S
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="US" & stimtype=="single video" & local==0 & (stimulus=="v_13" | v_negative==0) , re 
  estimates store T
  esttab N O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

 
  xtset resp vid_order
  replace neg = v_negative
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store A  
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="BR" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store B
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.e" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store C
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.f" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store D
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CH" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store E
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CN" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store F
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="DK" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store G
  esttab A B C D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="FR" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store H
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="GH" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store I
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IN" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store J
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.j" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store K
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.p" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store L
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IT" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store M
  esttab H I J, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab K L M, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="JP" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store N
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="NZ" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store O
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="RU" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store P
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SE" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store Q
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SW" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store R 
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="UK" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store S
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="US" & stimtype=="single video" & local==0 & (stimulus=="v_14" | v_negative==0) , re 
  estimates store T
  esttab N O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  	
  xtset resp pho_order
  replace neg = p_negative
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="BR" & stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CH" & stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CN" & stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="DK" & stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="FR" & stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="GH" & stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IN" & stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IT" & stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="JP" & stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="RU" & stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SE" & stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SW" & stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="UK" & stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="US" & stimtype=="single photo" & (stimulus=="p_1202" | p_negative==0) , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  	   	
  xtset resp pho_order
  replace neg = p_negative
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="BR" & stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CH" & stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CN" & stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="DK" & stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="FR" & stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="GH" & stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IN" & stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IT" & stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="JP" & stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="RU" & stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SE" & stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SW" & stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="UK" & stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="US" & stimtype=="single photo" & (stimulus=="p_2683" | p_negative==0) , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  	   	
  xtset resp pho_order
  replace neg = p_negative
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="BR" & stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CH" & stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CN" & stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="DK" & stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="FR" & stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="GH" & stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IN" & stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IT" & stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="JP" & stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="RU" & stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SE" & stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SW" & stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="UK" & stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="US" & stimtype=="single photo" & (stimulus=="p_3530" | p_negative==0) , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  	  	
  xtset resp pho_order
  replace neg = p_negative
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="BR" & stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CH" & stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CN" & stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="DK" & stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="FR" & stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="GH" & stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IN" & stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IT" & stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="JP" & stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="RU" & stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SE" & stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SW" & stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="UK" & stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="US" & stimtype=="single photo" & (stimulus=="p_6260" | p_negative==0) , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  	   	
  xtset resp pho_order
  replace neg = p_negative
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="BR" & stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CH" & stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CN" & stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="DK" & stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="FR" & stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="GH" & stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IN" & stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IT" & stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="JP" & stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="RU" & stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SE" & stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SW" & stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="UK" & stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="US" & stimtype=="single photo" & (stimulus=="p_6510" | p_negative==0) , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  	 	 
  xtset resp pho_order
  replace neg = p_negative
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="BR" & stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CH" & stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CN" & stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="DK" & stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="FR" & stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="GH" & stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IN" & stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IT" & stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="JP" & stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="RU" & stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SE" & stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SW" & stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="UK" & stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="US" & stimtype=="single photo" & (stimulus=="p_3059" | p_negative==0) , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  	 
  xtset resp pho_order
  replace neg = p_negative
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="BR" & stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CH" & stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CN" & stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="DK" & stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="FR" & stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="GH" & stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IN" & stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IT" & stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="JP" & stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="RU" & stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SE" & stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SW" & stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="UK" & stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="US" & stimtype=="single photo" & (stimulus=="p_7380" | p_negative==0) , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  	 
  xtset resp pho_order
  replace neg = p_negative
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="BR" & stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CH" & stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CN" & stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="DK" & stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="FR" & stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="GH" & stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IN" & stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IT" & stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="JP" & stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="RU" & stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SE" & stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SW" & stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="UK" & stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="US" & stimtype=="single photo" & (stimulus=="p_9300" | p_negative==0) , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  	 
  xtset resp pho_order
  replace neg = p_negative
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="BR" & stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CH" & stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CN" & stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="DK" & stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="FR" & stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="GH" & stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IN" & stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IT" & stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="JP" & stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="RU" & stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SE" & stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SW" & stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="UK" & stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="US" & stimtype=="single photo" & (stimulus=="p_9325" | p_negative==0) , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

		 

* Table A6 Row 2

  xtset resp vid_order
  replace neg = v_negativity
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if stimtype=="single video" & local==0 , re 
  estimates store A
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="BR" & stimtype=="single video" & local==0 , re 
  estimates store B
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.e" & stimtype=="single video" & local==0 , re 
  estimates store C
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.f" & stimtype=="single video" & local==0 , re 
  estimates store D
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CH" & stimtype=="single video" & local==0 , re 
  estimates store E
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CN" & stimtype=="single video" & local==0 , re 
  estimates store F
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="DK" & stimtype=="single video" & local==0 , re 
  estimates store G
  esttab A B C D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="FR" & stimtype=="single video" & local==0 , re 
  estimates store H
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="GH" & stimtype=="single video" & local==0 , re 
  estimates store I
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IN" & stimtype=="single video" & local==0 , re 
  estimates store J
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.j" & stimtype=="single video" & local==0 , re 
  estimates store K
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.p" & stimtype=="single video" & local==0 , re 
  estimates store L
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IT" & stimtype=="single video" & local==0 , re 
  estimates store M
  esttab H I J, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab K L M, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="JP" & stimtype=="single video" & local==0 , re 
  estimates store N
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="NZ" & stimtype=="single video" & local==0 , re 
  estimates store O
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="RU" & stimtype=="single video" & local==0 , re 
  estimates store P
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SE" & stimtype=="single video" & local==0 , re 
  estimates store Q
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SW" & stimtype=="single video" & local==0 , re 
  estimates store R 
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="UK" & stimtype=="single video" & local==0 , re 
  estimates store S
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="US" & stimtype=="single video" & local==0 , re 
  estimates store T
  esttab N O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 


  xtset resp vid_order
  replace neg = v_negativity
  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if stimtype=="single video" & local==0 , re 
  estimates store A
  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="BR" & stimtype=="single video" & local==0 , re 
  estimates store B
  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="CA.e" & stimtype=="single video" & local==0 , re 
  estimates store C
  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="CA.f" & stimtype=="single video" & local==0 , re 
  estimates store D
  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="CH" & stimtype=="single video" & local==0 , re 
  estimates store E
  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="CN" & stimtype=="single video" & local==0 , re 
  estimates store F
  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="DK" & stimtype=="single video" & local==0 , re 
  estimates store G
  esttab A B C D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="FR" & stimtype=="single video" & local==0 , re 
  estimates store H
  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="GH" & stimtype=="single video" & local==0 , re 
  estimates store I
  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="IN" & stimtype=="single video" & local==0 , re 
  estimates store J
  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="IS.j" & stimtype=="single video" & local==0 , re 
  estimates store K
  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="IS.p" & stimtype=="single video" & local==0 , re 
  estimates store L
  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="IT" & stimtype=="single video" & local==0 , re 
  estimates store M
  esttab H I J, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab K L M, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="JP" & stimtype=="single video" & local==0 , re 
  estimates store N
  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="NZ" & stimtype=="single video" & local==0 , re 
  estimates store O
  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="RU" & stimtype=="single video" & local==0 , re 
  estimates store P
  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="SE" & stimtype=="single video" & local==0 , re 
  estimates store Q
  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="SW" & stimtype=="single video" & local==0 , re 
  estimates store R 
  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="UK" & stimtype=="single video" & local==0 , re 
  estimates store S
  quietly xtreg gslmc c.neg##c.wp_right2_dicho2 vid_order female age income university if country2=="US" & stimtype=="single video" & local==0 , re 
  estimates store T
  esttab N O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  
  xtset resp vid_order
  replace neg = v_negativity
  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if stimtype=="single video" & local==0 , re 
  estimates store A
  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="BR" & stimtype=="single video" & local==0 , re 
  estimates store B
  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="CA.e" & stimtype=="single video" & local==0 , re 
  estimates store C
  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="CA.f" & stimtype=="single video" & local==0 , re 
  estimates store D
  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="CH" & stimtype=="single video" & local==0 , re 
  estimates store E
  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="CN" & stimtype=="single video" & local==0 , re 
  estimates store F
  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="DK" & stimtype=="single video" & local==0 , re 
  estimates store G
  esttab A B C D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="FR" & stimtype=="single video" & local==0 , re 
  estimates store H
  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="GH" & stimtype=="single video" & local==0 , re 
  estimates store I
  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="IN" & stimtype=="single video" & local==0 , re 
  estimates store J
  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="IS.j" & stimtype=="single video" & local==0 , re 
  estimates store K
  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="IS.p" & stimtype=="single video" & local==0 , re 
  estimates store L
  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="IT" & stimtype=="single video" & local==0 , re 
  estimates store M
  esttab H I J, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab K L M, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="JP" & stimtype=="single video" & local==0 , re 
  estimates store N
  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="NZ" & stimtype=="single video" & local==0 , re 
  estimates store O
  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="RU" & stimtype=="single video" & local==0 , re 
  estimates store P
  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="SE" & stimtype=="single video" & local==0 , re 
  estimates store Q
  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="SW" & stimtype=="single video" & local==0 , re 
  estimates store R 
  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="UK" & stimtype=="single video" & local==0 , re 
  estimates store S
  quietly xtreg gslmc c.neg##c.wp_right2_dichox vid_order female age income university if country2=="US" & stimtype=="single video" & local==0 , re 
  estimates store T
  esttab N O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

   
  xtset resp vid_order
  replace neg = v_negativity
  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if stimtype=="single video" & local==0 , re 
  estimates store A  
  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="BR" & stimtype=="single video" & local==0 , re 
  estimates store B
  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="CA.e" & stimtype=="single video" & local==0 , re 
  estimates store C
  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="CA.f" & stimtype=="single video" & local==0 , re 
  estimates store D
  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="CH" & stimtype=="single video" & local==0 , re 
  estimates store E
  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="CN" & stimtype=="single video" & local==0 , re 
  estimates store F
  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="DK" & stimtype=="single video" & local==0 , re 
  estimates store G
  esttab A B C D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="FR" & stimtype=="single video" & local==0 , re 
  estimates store H
  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="GH" & stimtype=="single video" & local==0 , re 
  estimates store I
  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="IN" & stimtype=="single video" & local==0 , re 
  estimates store J
  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="IS.j" & stimtype=="single video" & local==0 , re 
  estimates store K
  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="IS.p" & stimtype=="single video" & local==0 , re 
  estimates store L
  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="IT" & stimtype=="single video" & local==0 , re 
  estimates store M
  esttab H I J, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab K L M, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="JP" & stimtype=="single video" & local==0 , re 
  estimates store N
  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="NZ" & stimtype=="single video" & local==0 , re 
  estimates store O
  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="RU" & stimtype=="single video" & local==0 , re 
  estimates store P
  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="SE" & stimtype=="single video" & local==0 , re 
  estimates store Q
  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="SW" & stimtype=="single video" & local==0 , re 
  estimates store R 
  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="UK" & stimtype=="single video" & local==0 , re 
  estimates store S
  quietly xtreg gslmc c.neg##c.left_right2 vid_order female age income university if country2=="US" & stimtype=="single video" & local==0 , re 
  estimates store T
  esttab N O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 


  xtset resp vid_order
  replace neg = v_negativity
  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if stimtype=="single video" & local==0 , re 
  estimates store A
  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="BR" & stimtype=="single video" & local==0 , re 
  estimates store B
  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="CA.e" & stimtype=="single video" & local==0 , re 
  estimates store C
  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="CA.f" & stimtype=="single video" & local==0 , re 
  estimates store D
  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="CH" & stimtype=="single video" & local==0 , re 
  estimates store E
  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="CN" & stimtype=="single video" & local==0 , re 
  estimates store F
  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="DK" & stimtype=="single video" & local==0 , re 
  estimates store G
  esttab A B C D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="FR" & stimtype=="single video" & local==0 , re 
  estimates store H
  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="GH" & stimtype=="single video" & local==0 , re 
  estimates store I
  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="IN" & stimtype=="single video" & local==0 , re 
  estimates store J
  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="IS.j" & stimtype=="single video" & local==0 , re 
  estimates store K
  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="IS.p" & stimtype=="single video" & local==0 , re 
  estimates store L
  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="IT" & stimtype=="single video" & local==0 , re 
  estimates store M
  esttab H I J, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab K L M, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="JP" & stimtype=="single video" & local==0 , re 
  estimates store N
  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="NZ" & stimtype=="single video" & local==0 , re 
  estimates store O
  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="RU" & stimtype=="single video" & local==0 , re 
  estimates store P
  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="SE" & stimtype=="single video" & local==0 , re 
  estimates store Q
  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="SW" & stimtype=="single video" & local==0 , re 
  estimates store R 
  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="UK" & stimtype=="single video" & local==0 , re 
  estimates store S
  quietly xtreg gslmc c.neg##c.left_right2_dichox vid_order female age income university if country2=="US" & stimtype=="single video" & local==0 , re 
  estimates store T
  esttab N O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 


  xtset resp vid_order
  replace neg = v_negativity
  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if stimtype=="single video" & local==0 , re 
  estimates store A  
  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="BR" & stimtype=="single video" & local==0 , re 
  estimates store B
  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="CA.e" & stimtype=="single video" & local==0 , re 
  estimates store C
  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="CA.f" & stimtype=="single video" & local==0 , re 
  estimates store D
  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="CH" & stimtype=="single video" & local==0 , re 
  estimates store E
  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="CN" & stimtype=="single video" & local==0 , re 
  estimates store F
  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="DK" & stimtype=="single video" & local==0 , re 
  estimates store G
  esttab A B C D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="FR" & stimtype=="single video" & local==0 , re 
  estimates store H
  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="GH" & stimtype=="single video" & local==0 , re 
  estimates store I
  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="IN" & stimtype=="single video" & local==0 , re 
  estimates store J
  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="IS.j" & stimtype=="single video" & local==0 , re 
  estimates store K
  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="IS.p" & stimtype=="single video" & local==0 , re 
  estimates store L
  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="IT" & stimtype=="single video" & local==0 , re 
  estimates store M
  esttab H I J, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab K L M, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="JP" & stimtype=="single video" & local==0 , re 
  estimates store N
  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="NZ" & stimtype=="single video" & local==0 , re 
  estimates store O
  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="RU" & stimtype=="single video" & local==0 , re 
  estimates store P
  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="SE" & stimtype=="single video" & local==0 , re 
  estimates store Q
  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="SW" & stimtype=="single video" & local==0 , re 
  estimates store R 
  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="UK" & stimtype=="single video" & local==0 , re 
  estimates store S
  quietly xtreg gslmc c.neg##c.ideo_right2 vid_order female age income university if country2=="US" & stimtype=="single video" & local==0 , re 
  estimates store T
  esttab N O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

 
  xtset resp vid_order
  replace neg = v_negativity
  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if stimtype=="single video" & local==0 , re 
  estimates store A  
  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="BR" & stimtype=="single video" & local==0 , re 
  estimates store B
  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="CA.e" & stimtype=="single video" & local==0 , re 
  estimates store C
  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="CA.f" & stimtype=="single video" & local==0 , re 
  estimates store D
  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="CH" & stimtype=="single video" & local==0 , re 
  estimates store E
  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="CN" & stimtype=="single video" & local==0 , re 
  estimates store F
  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="DK" & stimtype=="single video" & local==0 , re 
  estimates store G
  esttab A B C D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="FR" & stimtype=="single video" & local==0 , re 
  estimates store H
  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="GH" & stimtype=="single video" & local==0 , re 
  estimates store I
  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="IN" & stimtype=="single video" & local==0 , re 
  estimates store J
  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="IS.j" & stimtype=="single video" & local==0 , re 
  estimates store K
  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="IS.p" & stimtype=="single video" & local==0 , re 
  estimates store L
  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="IT" & stimtype=="single video" & local==0 , re 
  estimates store M
  esttab H I J, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab K L M, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="JP" & stimtype=="single video" & local==0 , re 
  estimates store N
  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="NZ" & stimtype=="single video" & local==0 , re 
  estimates store O
  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="RU" & stimtype=="single video" & local==0 , re 
  estimates store P
  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="SE" & stimtype=="single video" & local==0 , re 
  estimates store Q
  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="SW" & stimtype=="single video" & local==0 , re 
  estimates store R 
  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="UK" & stimtype=="single video" & local==0 , re 
  estimates store S
  quietly xtreg gslmc c.neg##c.ideo_right2_dichox vid_order female age income university if country2=="US" & stimtype=="single video" & local==0 , re 
  estimates store T
  esttab N O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  
  
* Table A6 Row 5

  xtset resp pho_order
  replace neg = p_negativity
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="BR" & stimtype=="single photo" , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CH" & stimtype=="single photo" , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CN" & stimtype=="single photo" , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="DK" & stimtype=="single photo" , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="FR" & stimtype=="single photo" , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="GH" & stimtype=="single photo" , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IN" & stimtype=="single photo" , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IT" & stimtype=="single photo" , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="JP" & stimtype=="single photo" , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="RU" & stimtype=="single photo" , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SE" & stimtype=="single photo" , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SW" & stimtype=="single photo" , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="UK" & stimtype=="single photo" , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="US" & stimtype=="single photo" , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 


  xtset resp pho_order
  replace neg = p_negativity
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if stimtype=="single photo" , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if country2=="BR" & stimtype=="single photo" , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if country2=="CH" & stimtype=="single photo" , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if country2=="CN" & stimtype=="single photo" , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if country2=="DK" & stimtype=="single photo" , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if country2=="FR" & stimtype=="single photo" , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if country2=="GH" & stimtype=="single photo" , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if country2=="IN" & stimtype=="single photo" , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if country2=="IT" & stimtype=="single photo" , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if country2=="JP" & stimtype=="single photo" , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if country2=="RU" & stimtype=="single photo" , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if country2=="SE" & stimtype=="single photo" , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if country2=="SW" & stimtype=="single photo" , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if country2=="UK" & stimtype=="single photo" , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dicho2 pho_order female age income university if country2=="US" & stimtype=="single photo" , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  
  xtset resp pho_order
  replace neg = p_negativity
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if stimtype=="single photo" , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if country2=="BR" & stimtype=="single photo" , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if country2=="CA.f" & stimtype=="single photo" , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if country2=="CH" & stimtype=="single photo" , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if country2=="CN" & stimtype=="single photo" , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if country2=="DK" & stimtype=="single photo" , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if country2=="FR" & stimtype=="single photo" , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if country2=="GH" & stimtype=="single photo" , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if country2=="IN" & stimtype=="single photo" , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if country2=="IS.j" & stimtype=="single photo" , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if country2=="IS.p" & stimtype=="single photo" , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if country2=="IT" & stimtype=="single photo" , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if country2=="JP" & stimtype=="single photo" , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if country2=="NZ" & stimtype=="single photo" , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if country2=="RU" & stimtype=="single photo" , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if country2=="SE" & stimtype=="single photo" , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if country2=="SW" & stimtype=="single photo" , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if country2=="UK" & stimtype=="single photo" , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.wp_right2_dichox pho_order female age income university if country2=="US" & stimtype=="single photo" , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

   
  xtset resp pho_order
  replace neg = p_negativity
  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if stimtype=="single photo" , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if country2=="BR" & stimtype=="single photo" , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if country2=="CH" & stimtype=="single photo" , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if country2=="CN" & stimtype=="single photo" , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if country2=="DK" & stimtype=="single photo" , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if country2=="FR" & stimtype=="single photo" , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if country2=="GH" & stimtype=="single photo" , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if country2=="IN" & stimtype=="single photo" , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if country2=="IT" & stimtype=="single photo" , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if country2=="JP" & stimtype=="single photo" , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if country2=="RU" & stimtype=="single photo" , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if country2=="SE" & stimtype=="single photo" , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if country2=="SW" & stimtype=="single photo" , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if country2=="UK" & stimtype=="single photo" , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.left_right2 pho_order female age income university if country2=="US" & stimtype=="single photo" , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

   
  xtset resp pho_order
  replace neg = p_negativity
  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if stimtype=="single photo" , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if country2=="BR" & stimtype=="single photo" , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if country2=="CA.f" & stimtype=="single photo" , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if country2=="CH" & stimtype=="single photo" , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if country2=="CN" & stimtype=="single photo" , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if country2=="DK" & stimtype=="single photo" , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if country2=="FR" & stimtype=="single photo" , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if country2=="GH" & stimtype=="single photo" , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if country2=="IN" & stimtype=="single photo" , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if country2=="IS.j" & stimtype=="single photo" , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if country2=="IS.p" & stimtype=="single photo" , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if country2=="IT" & stimtype=="single photo" , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if country2=="JP" & stimtype=="single photo" , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if country2=="NZ" & stimtype=="single photo" , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if country2=="RU" & stimtype=="single photo" , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if country2=="SE" & stimtype=="single photo" , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if country2=="SW" & stimtype=="single photo" , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if country2=="UK" & stimtype=="single photo" , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.left_right2_dichox pho_order female age income university if country2=="US" & stimtype=="single photo" , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

    
  xtset resp pho_order
  replace neg = p_negativity
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if stimtype=="single photo" , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if country2=="BR" & stimtype=="single photo" , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if country2=="CH" & stimtype=="single photo" , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if country2=="CN" & stimtype=="single photo" , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if country2=="DK" & stimtype=="single photo" , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if country2=="FR" & stimtype=="single photo" , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if country2=="GH" & stimtype=="single photo" , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if country2=="IN" & stimtype=="single photo" , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if country2=="IT" & stimtype=="single photo" , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if country2=="JP" & stimtype=="single photo" , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if country2=="RU" & stimtype=="single photo" , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if country2=="SE" & stimtype=="single photo" , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if country2=="SW" & stimtype=="single photo" , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if country2=="UK" & stimtype=="single photo" , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2 pho_order female age income university if country2=="US" & stimtype=="single photo" , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

    	
  xtset resp pho_order
  replace neg = p_negativity
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if stimtype=="single photo" , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if country2=="BR" & stimtype=="single photo" , re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if country2=="CA.f" & stimtype=="single photo" , re 
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if country2=="CH" & stimtype=="single photo" , re 
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if country2=="CN" & stimtype=="single photo" , re 
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if country2=="DK" & stimtype=="single photo" , re 
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if country2=="FR" & stimtype=="single photo" , re 
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if country2=="GH" & stimtype=="single photo" , re 
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if country2=="IN" & stimtype=="single photo" , re 
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if country2=="IS.j" & stimtype=="single photo" , re 
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if country2=="IS.p" & stimtype=="single photo" , re 
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if country2=="IT" & stimtype=="single photo" , re 
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if country2=="JP" & stimtype=="single photo" , re 
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if country2=="NZ" & stimtype=="single photo" , re 
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if country2=="RU" & stimtype=="single photo" , re 
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if country2=="SE" & stimtype=="single photo" , re 
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if country2=="SW" & stimtype=="single photo" , re 
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if country2=="UK" & stimtype=="single photo" , re 
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.ideo_right2_dichox pho_order female age income university if country2=="US" & stimtype=="single photo" , re 
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 



* Table A8 Row 2
  
  xtset resp vid_order
  replace neg = v_negativity
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if stimtype=="single video" & local==0 , re 
  estimates store A
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if stimtype=="single video" & local==0 & wp_right2_ext==1, re 
  estimates store B
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if stimtype=="single video" & local==0 & political_interest_dichox==1, re 
  estimates store C
  esttab A B C , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)

  
  xtset resp vid_order
  replace neg = v_negativity
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="BR" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store B
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.e" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store C
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.f" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store D
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CH" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store E
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CN" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store F
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="DK" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store G
  esttab B C D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="FR" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store H
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="GH" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store I
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IN" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store J
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.j" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store K
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.p" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store L
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IT" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store M
  esttab H I J, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab K L M, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="JP" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store N
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="NZ" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store O
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="RU" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store P
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SE" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store Q
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SW" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store R 
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="UK" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store S
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="US" & stimtype=="single video" & local==0 & wp_right2_ext==1, re  
  estimates store T
  esttab N O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  
  xtset resp vid_order
  replace neg = v_negativity
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="BR" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store B
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.e" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store C
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CA.f" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store D
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CH" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store E
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="CN" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store F
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="DK" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store G
  esttab B C D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="FR" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store H
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="GH" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store I
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IN" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store J
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.j" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store K
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IS.p" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store L
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="IT" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store M
  esttab H I J, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab K L M, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="JP" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store N
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="NZ" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store O
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="RU" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store P
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SE" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store Q
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="SW" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store R 
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="UK" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store S
  quietly xtreg gslmc c.neg##c.wp_right2 vid_order female age income university if country2=="US" & stimtype=="single video" & local==0 & political_interest_dichox==1, re  
  estimates store T
  esttab N O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

      
	 
* Table A8 Row 5
				  
  xtset resp pho_order
  replace neg = p_negativity
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" , re 
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & wp_right2_ext==1, re 
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & political_interest_dichox==1, re 
  estimates store C
  esttab A B C, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g)
  	
	
  xtset resp pho_order
  replace neg = p_negativity
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="BR" & stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CH" & stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CN" & stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="DK" & stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="FR" & stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="GH" & stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IN" & stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IT" & stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="JP" & stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="RU" & stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SE" & stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SW" & stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="UK" & stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="US" & stimtype=="single photo" & wp_right2_ext==1, re  
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  			    
  xtset resp pho_order
  replace neg = p_negativity
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store A
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="BR" & stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store B
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CA.f" & stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store D
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CH" & stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store E
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="CN" & stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store F
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="DK" & stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store G
  esttab A B D, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab E F G, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="FR" & stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store H
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="GH" & stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store I
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IN" & stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store J
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.j" & stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store K
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IS.p" & stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store L
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="IT" & stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store M
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="JP" & stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store N
  esttab H I J K, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab L M N, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="NZ" & stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store O
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="RU" & stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store P
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SE" & stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store Q
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="SW" & stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store R 
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="UK" & stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store S
  quietly xtreg p_gslmc_all c.neg##c.wp_right2 pho_order female age income university if country2=="US" & stimtype=="single photo" & political_interest_dichox==1, re  
  estimates store T
  esttab O P Q, cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 
  esttab R S T , cells(b(star fmt(3)) se(par fmt(3))) nogaps stat(r2_w r2_b r2_o N N_g) 

  
